home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / irc2-2.mrc < prev    next >
Encoding:
Text File  |  2000-02-17  |  28.9 KB  |  638 lines
  1. alias i2.parse.privmsg {
  2.   if (:* iswm $5-) i2.parse.ctcp $1-
  3.   elseif ($4 == $i2.var($1,me)) {
  4.     set %i2.rel.msg < $+ $getnick($2) $+ ( $+ $getadd($2) $+ )> $nocolon($5-)
  5.     if (%actmsg == on) i2.aecho $1 [ $+ $ac($getnick($2)) $+ : $+ $sc($getadd($2)) $+ ] $nocolon($5-)
  6.     i2.techo $1 $getnick($2) $colour(Normal) < $+ $getnick($2) $+ > $nocolon($5-)
  7.     titlebar $i2.win($1,$getnick($2)) ( $+ $getadd($2) $+ )
  8.     tsound msg
  9.   }
  10.   elseif ($i2.ischan($4)) {
  11.     set %i2.tmp.chan $i2.chan($4)
  12.     if (($i2.var($1,me) isin $5-) && (%i2.tmp.chan != $i2.active($1))) i2.aecho $1 $colour(Normal) < $+ $i2.pst($1,$getnick($2),%i2.tmp.chan) $+ : $+ $sc($4) $+ > $replace($nocolon($5-),$i2.var($1,me),$i2.var($1,me.h))
  13.     i2.techo $1 %i2.tmp.chan $colour(Normal) < $+ $i2.pst($1,$getnick($2),%i2.tmp.chan) $+ > $nocolon($5-)
  14.     unset %i2.tmp.chan
  15.   }
  16.   elseif ($left($4,1) == $chr(36)) echo $colour(Notice) -ti2 $i2.status($1) ( $+ $getnick($2) $+ ) $nocolon($5-)
  17.   else i2.saecho $1-
  18. }
  19. alias i2.parse.ctcp {
  20.   if ($i2.ischan($4)) {
  21.     if ($5 == :ACTION) {
  22.       set %i2.tmp.chan $i2.chan($4)
  23.       if (($i2.var($1,me) isin $5-) && (%i2.tmp.chan != $i2.active($1))) i2.aecho $1 $colour(Action) * $i2.pst($1,$getnick($2),%i2.tmp.chan) $+ : $+ $sc($4) $getleft($replace($6-,$i2.var($1,me),$i2.var($1,me.h)))
  24.       i2.techo $1 %i2.tmp.chan $colour(Action) * $i2.pst($1,$getnick($2),%i2.tmp.chan) $getleft($6-)
  25.     }
  26.     elseif ($5 == :PING) {
  27.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] PING
  28.       i2.quote $1 notice $getnick($2) $5-
  29.       i2.iecho $1 $hc($getnick($2)) has requested a channel $sc(PING) on $hc($4) $+ .
  30.     }
  31.     else {
  32.       if (($5 == :VERSION) || ($5 == :VERSION)) i2.quote $1 notice $getnick($2) :VERSION %irc2.ver - %ver for mIRC - $read $td(quotes.txt) -
  33.       elseif ((($5 == :ADDON) || ($5 == :ADDON)) && (%aver)) i2.quote $1 notice $getnick($2) :ADDON %irc2.ver - %ver for mIRC - [ $+ $avconv(%aver) $+ ] -
  34.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] $getleft($getright($nocolon($5-)))
  35.       if ($6) i2.iecho $1 $hc($getnick($2)) has requested a channel $sc($getright($nocolon($5))) on $hc($4) $+ : $getleft($6-)
  36.       else i2.iecho $1 $hc($getnick($2)) has requested a channel $sc($getleft($getright($nocolon($5)))) on $hc($4) $+ .
  37.     }
  38.   }
  39.   elseif ($4 == $i2.var($1,me)) {
  40.     if ($5 == :ACTION) {
  41.       i2.techo $1 $getnick($2) $colour(Action) * $getnick($2) $getleft($6-)
  42.       set %i2.rel.msg * $getnick($2) $+ ( $+ $getadd($2) $+ )- $getkeft($6-)
  43.       tsound msg
  44.     }
  45.     elseif ($5 == :DCC) {
  46.       if ($6 == SEND) {
  47.         if (($me) && ($server)) {
  48.           i2.iecho $1 $hc(SEND) from $hc($getnick($2)) $rbrk($getadd($2)) of $hc($7) [[ $+ $sc($alof($getleft($10))) $+ ]]
  49.           .quote privmsg $me $5-
  50.         }
  51.         else {
  52.           i2.iecho $1 Ignored $hc(SEND) from $hc($getnick($2)) $rbrk($getadd($2)) of $hc($7) [[ $+ $sc($alof($getleft($10))) $+ ]] (no forwarding nickname)
  53.           i2.quote $1 notice $getnick($2) :DCC SEND request ignored (no forwarding nickname)
  54.         }
  55.       }
  56.       elseif ($6 == CHAT) {
  57.         if (($me) && ($server)) {
  58.           i2.iecho $1 $hc(CHAT) from $hc($getnick($2)) $rbrk($getadd($2))
  59.           .quote privmsg $me $5-
  60.         }
  61.         else {
  62.           i2.iecho $1 Ignored $hc(CHAT) from $hc($getnick($2)) $rbrk($getadd($2)) (no forwarding nickname)
  63.           i2.quote $1 notice $getnick($2) :DCC CHAT request ignored (no forwarding nickname)
  64.         }
  65.       }
  66.       else i2.iecho $1 DCC $hc($6) from $hc($getnick($2)) $rbrk($getadd($2))
  67.     }
  68.     elseif ($5 == :PING) {
  69.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] PING $getleft($6-)
  70.       i2.quote $1 notice $getnick($2) $5-
  71.       i2.iecho $1 CTCP $hc(PING) $sc(request) by $u($hc($getnick($2))) at $hc($atime) $+ .
  72.     }
  73.     else {
  74.       if (($5 == :VERSION) || ($5 == :VERSION)) i2.quote $1 notice $getnick($2) :VERSION %irc2.ver - %ver for mIRC - $read $td(quotes.txt) -
  75.       elseif ((($5 == :ADDON) || ($5 == :ADDON)) && (%aver)) i2.quote $1 notice $getnick($2) :ADDON %irc2.ver - %ver for mIRC - [ $+ $avconv(%aver) $+ ] -
  76.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] $getleft($getright($nocolon($5-)))
  77.       if ($6) i2.iecho $1 CTCP $hc($getright($nocolon($5))) $sc(request) by $u($hc($getnick($2))) $+ : $getleft($6-)
  78.       else i2.iecho $1 CTCP $hc($getleft($getright($nocolon($5)))) $sc(request) by $u($hc($getnick($2))) at $hc($atime) $+ .
  79.     }
  80.   }
  81.   elseif ($left($4,1)) == $chr(36)) {
  82.     if ($5 == :ACTION) echo $colour(Action) -ti2 $i2.status($1) * $getnick($2) $+ : $+ $getright($4) $getleft($6-)
  83.     elseif ($5 == :PING) {
  84.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] PING
  85.       i2.quote $1 notice $getnick($2) $5-
  86.       i2.iecho $1 $hc($getnick($2)) has requested a server CTCP $sc(PING) on $hc($getright($4)) $+ .
  87.     }
  88.     else {
  89.       if (($5 == :VERSION) || ($5 == :VERSION)) i2.quote $1 notice $getnick($2) :VERSION %irc2.ver - %ver for mIRC - $read $td(quotes.txt) -
  90.       elseif ((($5 == :ADDON) || ($5 == :ADDON)) && (%aver)) i2.quote $1 notice $getnick($2) :ADDON %irc2.ver - %ver for mIRC - [ $+ $avconv(%aver) $+ ] -
  91.       set %i2.rel.ctcp [ $+ $getnick($2) $+ ( $+ $getadd($2) $+ )] $getleft($getright($nocolon($5-)))
  92.       if ($6) i2.iecho $1 $hc($getnick($2)) has requested a server CTCP $sc($getright($nocolon($5))) on $hc($getright($4)) $+ : $getleft($6-)
  93.       else i2.iecho $1 $hc($getnick($2)) has requested a server CTCP $sc($getleft($getright($nocolon($5)))) on $hc($getright($4)) $+ .
  94.     }
  95.   }
  96.   else i2.saecho $1-
  97. }
  98. alias i2.parse.notice {
  99.   if (:* iswm $5-) i2.parse.ctcpreply $1-
  100.   elseif (($4 == $i2.var($1,me)) || ($4 == AUTH)) { 
  101.     set %i2.rel.not - $+ $getnick($2) $+ ( $+ $getadd($2) $+ )- $nocolon($5-)
  102.     i2.wecho $1 $getnick($2) $colour(Notice) - $+ $getnick($2)) $+ - $nocolon($5-)
  103.     tsound notice
  104.   }
  105.   elseif ($i2.ischan($4)) {
  106.     set %i2.tmp.chan $i2.chan($4)
  107.     set %i2.rel.not - $+ $getnick($2) $+ ( $+ $getadd($2) $+ ): $+ $4 $+ - $nocolon($5-)
  108.     i2.techo $1 %i2.tmp.chan $colour(Notice) - $+ $pst($getnick($2),%i2.tmp.chan) $+ : $+ $4 $+ - $nocolon($5-)
  109.     unset %i2.tmp.chan
  110.     tsound notice
  111.   }
  112.   elseif ($left($4,1) == $chr(36)) echo $colour(Action) -ti2 $i2.status($1) - $+ $getnick($2) $+ - $nocolon($5-)
  113.   else i2.saecho $1-
  114. }
  115. alias i2.parse.ctcpreply {
  116.   if ($4 == $i2.var($1,me)) { 
  117.     if (($5 == :PING) && ($getleft($6) isnum)) i2.iecho $1 CTCP $hc(PING) $sc(reply) from $u($hc($getnick($2))) $+ : $iduration($round($div($sub($ticks,$getleft($6)),1000),2))
  118.     elseif ($6) i2.iecho $1 CTCP $hc($getright($nocolon($5))) $sc(reply) from $u($hc($getnick($2))) $+ : $getleft($6-)
  119.     else i2.iecho $1 CTCP $hc($getright($getleft($nocolon($5)))) $sc(reply) from $u($hc($getnick($2))) $+ .
  120.   }
  121.   elseif ($i2.ischan($4)) {
  122.     set %i2.tmp.chan $i2.chan($4)
  123.     if ($6) i2.iecho $1 $hc($getnick($2)) has sent a channel $sc($getleft($nocolon($5))) reply to $hc($4) $+ : $getright($6-)
  124.     else i2.iecho $1 $hc($getnick($2)) has sent a channel $sc($getright($getleft($nocolon($5)))) reply to $hc($4) $+ .
  125.   }
  126.   elseif ($left($4,1) == $chr(36)) {
  127.     if ($6) i2.iecho $1 $hc($getnick($2)) has sent a server CTCP $sc($getleft($nocolon($5))) reply to $hc($getright($4)) $+ : $getright($6-)
  128.     else i2.iecho $1 $hc($getnick($2)) has sent a server CTCP $sc($getright($getleft($nocolon($5)))) reply to $hc($getright($4)) $+ .
  129.   }
  130.   else i2.saecho $1-
  131. }
  132. alias i2.parse.raw {
  133.   if ($3 == 001) i2.saecho $1 $nocolon($5-)
  134.   elseif ($3 == 002) {
  135.     i2.set $1 servername $getleft($8)
  136.     i2.supdate $1
  137.     i2.saecho $1 $nocolon($5-)
  138.   }
  139.   elseif ($3 == 003) i2.saecho $1 $nocolon($5-)
  140.   elseif ($3 == 004) i2.saecho $1 $nocolon($5-)
  141.   elseif ($3 == 005) i2.saecho $1 $5-8 $nocolon($9-)
  142.   elseif ($3 == 200) i2.saecho $1 $5-
  143.   elseif ($3 == 201) i2.saecho $1 $5-
  144.   elseif ($3 == 202) i2.saecho $1 $5-
  145.   elseif ($3 == 203) i2.saecho $1 $5-
  146.   elseif ($3 == 204) i2.saecho $1 $5-
  147.   elseif ($3 == 205) i2.saecho $1 $5-
  148.   elseif ($3 == 206) i2.saecho $1 $5-
  149.   elseif ($3 == 208) i2.saecho $1 $5-
  150.   elseif ($3 == 211) i2.saecho $1 $5-
  151.   elseif ($3 == 212) i2.saecho $1 $5-
  152.   elseif ($3 == 213) i2.saecho $1 $5-
  153.   elseif ($3 == 214) i2.saecho $1 $5-
  154.   elseif ($3 == 215) i2.saecho $1 $5-
  155.   elseif ($3 == 216) i2.saecho $1 $5-
  156.   elseif ($3 == 217) i2.saecho $1 $5-
  157.   elseif ($3 == 218) i2.saecho $1 $5-
  158.   elseif ($3 == 219) i2.saecho $1 $5 $nocolon($6-)
  159.   elseif ($3 == 220) i2.saecho $1 $5-
  160.   elseif ($3 == 221) {
  161.     if ($4 == $i2.var($1,me)) {
  162.       i2.set $1 umode $5
  163.       i2.supdate $1
  164.     }
  165.   }
  166.   elseif ($3 == 222) i2.saecho $1 $5-
  167.   elseif ($3 == 231) i2.saecho $1 $5-
  168.   elseif ($3 == 232) i2.saecho $1 $5-
  169.   elseif ($3 == 233) i2.saecho $1 $5-
  170.   elseif ($3 == 234) i2.saecho $1 $5-
  171.   elseif ($3 == 235) i2.saecho $1 $5-
  172.   elseif ($3 == 241) i2.saecho $1 $5-
  173.   elseif ($3 == 242) i2.saecho $1 $nocolon($5-)
  174.   elseif ($3 == 243) i2.saecho $1 $5-
  175.   elseif ($3 == 244) i2.saecho $1 $5-
  176.   elseif ($3 == 245) i2.saecho $1 $5-
  177.   elseif ($3 == 246) i2.saecho $1 $5-
  178.   elseif ($3 == 247) i2.saecho $1 $5-
  179.   elseif ($3 == 248) i2.saecho $1 $5-
  180.   elseif ($3 == 249) i2.saecho $1 $nocolon($5-)
  181.   elseif ($3 == 250) i2.secho $1 - $nocolon($5-)
  182.   elseif ($3 == 251) i2.saecho $1 - $nocolon($5-)
  183.   elseif ($3 == 252) i2.saecho $1 - $5 $nocolon($6-)
  184.   elseif ($3 == 253) i2.saecho $1 - $5 $nocolon($6-)
  185.   elseif ($3 == 254) i2.saecho $1 - $5 $nocolon($6-)
  186.   elseif ($3 == 255) i2.saecho $1 - $nocolon($5-)
  187.   elseif ($3 == 256) i2.saecho $1 $5 $nocolon($6-)
  188.   elseif ($3 == 257) i2.saecho $1 $nocolon($5-)
  189.   elseif ($3 == 258) i2.saecho $1 $nocolon($5-)
  190.   elseif ($3 == 259) i2.saecho $1 $nocolon($5-)
  191.   elseif ($3 == 261) i2.saecho $1 $5-
  192.   elseif ($3 == 262) i2.saecho $1 $5-
  193.   elseif ($3 == 263) i2.saecho $1 $nocolon($5-)
  194.   elseif ($3 == 265) i2.secho $1 - $nocolon($5-)
  195.   elseif ($3 == 266) i2.saecho $1 - $nocolon($5-)
  196.   elseif ($3 == 271) i2.saecho $1 $5-
  197.   elseif ($3 == 272) i2.saecho $1 $nocolon($5-)
  198.   elseif ($3 == 275) i2.saecho $1 $5-
  199.   elseif ($3 == 280) i2.saecho $1 $5-
  200.   elseif ($3 == 281) i2.saecho $1 $nocolon($5-)
  201.   elseif ($3 == 290) i2.saecho $1 $5-
  202.   elseif ($3 == 291) i2.saecho $1 $5-
  203.   elseif ($3 == 292) i2.saecho $1 $5-
  204.   elseif ($3 == 293) i2.saecho $1 $5-
  205.   elseif ($3 == 294) i2.saecho $1 $5-
  206.   elseif ($3 == 295) i2.saecho $1 $5-
  207.   elseif ($3 == 301) i2.aecho $1 $sc(|) $hc(away) $sc(:) $nocolon($6-)
  208.   elseif ($3 == 302) {
  209.     if ($i2.var($1,banc)) {
  210.       if ($5 == :) i2.iecho $1 $ac($4) is not on IRC.
  211.       else i2.quote $1 mode $i2.var($1,banc) +b $mask($replace($nocolon($5-),=+,!,=-,!),$i2.var($1,bann))
  212.       i2.unset $1 banc
  213.       i2.unset $1 bann
  214.     }
  215.     elseif ($i2.var($1,dns)) {
  216.       if ($5 == :) i2.iecho $1 $hc($4) is not on IRC.
  217.       else dns $gettok($nocolon($5-),2,64)
  218.       i2.unset $1 dns
  219.     }
  220.   }
  221.   elseif ($3 == 303) {
  222.     if ($i2.var($1,notifylist)) {
  223.       set %i 0
  224.       :notify1
  225.       inc %i
  226.       if ($gettok($nocolon($5-),%i,32)) {
  227.         if ($findtok($i2.var($1,notify),$gettok($nocolon($5-),%i,32),1,44) == $null) {
  228.           i2.saecho $1 $colour(Notify) *** $gettok($nocolon($5-),%i,32) is on IRC $paren($notify($gettok($nocolon($5-),%i,32)).note)
  229.           i2.set $1 notify $addtok($i2.var($1,notify),$gettok($nocolon($5-),%i,32),44)
  230.         }
  231.         goto notify1
  232.       }
  233.       set %i 0
  234.       :notify2
  235.       inc %i
  236.       if ($gettok($i2.var($1,notify),%i,44)) {
  237.         if (($findtok($nocolon($5-),$gettok($i2.var($1,notify),%i,44),1,32) == $null) && ($notify($gettok($i2.var($1,notify),%i,44)))) {
  238.           i2.saecho $1 $colour(Notify) *** $gettok($i2.var($1,notify),%i,44) has left IRC
  239.           if ($gettok($i2.var($1,notify),0,44) == 1) i2.unset $1 notify
  240.           else i2.set $1 notify $deltok($i2.var($1,notify),%i,44)
  241.           dec %i
  242.         }
  243.         goto notify2
  244.       }
  245.       i2.unset $1 notifylist
  246.     }
  247.     else i2.saecho $1 ison: $nocolon($5-)
  248.   }
  249.   elseif ($3 == 304) i2.saecho $1 $5-
  250.   elseif ($3 == 305) {
  251.     i2.iecho $1 You are no longer marked as being away.
  252.     i2.set $1 away off
  253.     tsound back
  254.   }
  255.   elseif ($3 == 306) {
  256.     i2.iecho $1 You have been marked as being away.
  257.     i2.set $1 away on
  258.     tsound away
  259.   }
  260.   elseif ($3 == 307) i2.aecho $1 $sc(|) $hc(stat) $sc(:) $nocolon($4-)
  261.   elseif ($3 == 308) i2.aecho $1 $sc(|) $hc(admin) $+ $sc(:) yes
  262.   elseif ($3 == 309) i2.aecho $1 $sc(|) $hc(svadm) $sc(:) yes
  263.   elseif ($3 == 310) i2.aecho $1 $sc(|) $hc(help) $sc(:) yes
  264.   elseif ($3 == 311) {
  265.     i2.aecho $1  _______________ $+ $hc(_______________) $+ $sc(_______________)
  266.     i2.aecho $1 |  $+ $sc($5) $+  ( $+ $6 $+ $hc(@) $+  $+ $7 $+ )
  267.     i2.aecho $1 $sc(|) $hc(name) $sc(:) $nocolon($9-)
  268.   }
  269.   elseif ($3 == 312) i2.aecho $1 $sc(|) $hc(serv) $sc(:) $6
  270.   elseif ($3 == 313) i2.aecho $1 $sc(|) $hc(ircop) $+ $sc(:) yes
  271.   elseif ($3 == 314) {
  272.     i2.aecho $1  _______________ $+ $hc(_______________) $+ $sc(_______________)
  273.     i2.aecho $1 |  $+ $sc($5) $+  ( $+ $6 $+ $hc(@) $+  $+ $7 $+ )
  274.     i2.aecho $1 $sc(|) $hc(name) $sc(:) $nocolon($9-)
  275.   }
  276.   elseif ($3 == 315) {
  277.     i2.aecho $1 'end of $hc($5) /WHO LIST. $str(29,-)
  278.     i2.unset $1 whochan
  279.   }
  280.   elseif ($3 == 317) i2.aecho $1 $sc(|) $hc(idle) $sc(:) $duration($6)
  281.   elseif ($3 == 318) i2.aecho $1  »»»»»»»»»»»»»»» $+ $hc(»»»»»»»»»»»»»»») $+ $sc(»»»»»»»»»»»»»»»)
  282.   elseif ($3 == 319) i2.aecho $1 $sc(|) $hc(chan) $sc(:) $nocolon($6-)
  283.   elseif ($3 == 321) i2.saecho $1 $fix(20,$5) $fix(10,$nocolon($6)) $7
  284.   elseif ($3 == 322) i2.saecho $1 $fix(20,$5) $fix(10,$6) $nocolon($7-)
  285.   elseif ($3 == 323) i2.saecho $1 $nocolon($5-)
  286.   elseif ($3 == 324) {
  287.     if ($isvalidchan($i2.var($1,chans),$5)) {
  288.       i2.cset $1 $5 mode $6-
  289.       i2.update $1 $5
  290.     }
  291.     else i2.secho $1 $5-
  292.   }
  293.   elseif ($3 == 328) {
  294.     echo -i2 $i2.win($1,$5)   . $+ $str(-,63) $+ .
  295.     echo -i2 $i2.win($1,$5)   | $sc(URL) $+ : $hc($fix(56,$nocolon($6-))) $vl
  296.     echo -i2 $i2.win($1,$5)   ' $+ $str(-,63) $+ '
  297.   }
  298.   elseif ($3 == 329) {
  299.     if ($i2.var($1,joining)) {
  300.       i2.saecho $1 $5 created on $asctime($6)
  301.       i2.unset $1 joining
  302.     }
  303.   }
  304.   elseif ($3 == 331) i2.saecho $1 $5 $nocolon($6-)
  305.   elseif ($3 == 332) {
  306.     echo -i2 $i2.win($1,$5)   . $+ $str(-,63) $+ .
  307.     echo -i2 $i2.win($1,$5)   | $sc(Topic) $+ : $fix(54,$wrap(1,54,$strip($nocolon($6-)))) $vl
  308.     set %wrap.topic %wrap.pos
  309.     if (%wrap.topic < $len($strip($nocolon($6-)))) {
  310.       :loop
  311.       echo -i2 $i2.win($1,$5)   | $+ $str( ,4) $+ $fix(58,$wrap($pls(%wrap.topic,1),58,$strip($nocolon($6-)))) $vl
  312.       set %wrap.topic $pls(%wrap.topic,%wrap.pos)
  313.       if (%wrap.topic < $len($strip($nocolon($6-)))) goto loop
  314.     }
  315.     unset %wrap.*
  316.     i2.cset $1 $5 topic $nocolon($6-)
  317.     if ($i2.var($1,joining) == on) i2.cset $1 $5 names.nottop on
  318.   }
  319.   elseif ($3 == 333) {
  320.     echo -i2 $i2.win($1,$5)   | $sc(SetBy) $+ : $hc($6) $lfix($sub(53,$len($6)),$asctime($7)) $vl
  321.     echo -i2 $i2.win($1,$5)   ' $+ $str(-,63) $+ '
  322.     i2.quote $1 mode $5
  323.   }
  324.   elseif ($3 == 341) i2.iecho $1 Invited $hc($5) to $hc($6) at $hc($atime) $+ .
  325.   elseif ($3 == 342) i2.saecho $1 $5- $nocolon($6-)
  326.   elseif ($3 == 351) i2.saecho $1 $5-6 $nocolon($7-)
  327.   elseif ($3 == 352) {
  328.     if ($i2.var($1,whochan) == on) {
  329.       i2.aecho $1 $vl $fix(13,$hc($9)) ( $+ $6 $+ @ $+ $7 $+ )
  330.       i2.aecho $1 $vl $str(-,9) is $sc($ca($10)) on $hc($8) ( $+ $sc($nocolon($11)) hops)
  331.     }
  332.   }
  333.   elseif ($3 == 353) {
  334.     inc %jstat.num
  335.     if ($i2.var($1,namechan)) {
  336.       if ($isvalidchan($i2.var($1,chans),$6)) set %i2.tmp.n echo -i2 $i2.win($1,$6)
  337.       else set %i2.tmp.n i2.aecho $1
  338.       if (%jstat.num == 1) {
  339.         if ($i2.var($1,names.showtop) == on) {
  340.           %i2.tmp.n   . $+ $str(-,63) $+ .
  341.           %i2.tmp.n   | Names [ $+ $hc($6) $+ : $+ $sc($fix(2,$pls(1,$count($7-,$chr(32))))) $+ ]] $lfix($sub(51,$len($6)),|)
  342.         }
  343.         else i2.set $1 names.showtop on
  344.         if ($window($i2.win($1,$6))) {
  345.           clear $i2.nwin($1,$6)
  346.           i2.addnicks $1 $6 $nocolon($7-)
  347.         }
  348.       }
  349.       else {
  350.         %i2.tmp.n   . $+ $str(-,63) $+ .
  351.         %i2.tmp.n   | Next [ $+ $hc($6) $+ : $+ $sc($fix(2,$pls(1,$count($7-,$chr(32))))) $+ ]] $lfix($sub(52,$len($6)),|)
  352.         if ($window($i2.win($1,$6))) i2.addnicks $1 $6 $nocolon($7-)
  353.       }
  354.       i2.a.line $1 $6 $nocolon($7-)
  355.     }
  356.     elseif ((%jstat.num == 1) && ($window($i2.win($1,$6)))) {
  357.       clear $i2.nwin($1,$6)
  358.       i2.addnicks $1 $6 $nocolon($7-)
  359.     }
  360.     elseif ($window($i2.win($1,$6))) i2.addnicks $1 $6 $nocolon($7-)
  361.   }
  362.   elseif ($3 == 362) i2.saecho $1 $5 $nocolon($6-)
  363.   elseif ($3 == 363) i2.saecho $1 $nocolon($5-)
  364.   elseif ($3 == 364) i2.saecho $1 $5-6 $nocolon($7-)
  365.   elseif ($3 == 365) i2.saecho $1 $5 $nocolon($6-)
  366.   elseif ($3 == 366) {
  367.     unset %jstat.num
  368.     i2.unset $1 namechan
  369.   }
  370.   elseif ($3 == 367) i2.saecho $1 $5-
  371.   elseif ($3 == 368) i2.saecho $1 $5 $nocolon($6-)
  372.   elseif ($3 == 369) i2.aecho $1  »»»»»»»»»»»»»»» $+ $hc(»»»»»»»»»»»»»»») $+ $sc(»»»»»»»»»»»»»»»)
  373.   elseif ($3 == 371) i2.saecho $1 $nocolon($5-)
  374.   elseif ($3 == 374) i2.saecho $1 $nocolon($5-)
  375.   elseif ($3 == 375) i2.secho $1 $nocolon($5-)
  376.   elseif ($3 == 372) i2.saecho $1 $nocolon($5-)
  377.   elseif ($3 == 376) {
  378.     i2.secho $1 $nocolon($5-)
  379.     if ($i2.var($1,con) == on) {
  380.       i2.unset $1 tried.altnick
  381.       i2.set $1 away off
  382.       i2.quote $1 mode $i2.var($1,me) %umode
  383.       i2.unset $1 con
  384.       i2.quote $1 mode $i2.var($1,me)
  385.       tsound connect
  386.       i2.notify $1
  387.       .timer 0 40 i2.notify $1
  388.       set %timer.i2notify. [ $+ [ $1 ] ] $ltimer
  389.       if ($mflag(options,n0,27) == 1) sockclose identd
  390.     }
  391.   }
  392.   elseif ($3 == 377) i2.secho $1 - $6-
  393.   elseif ($3 == 381) i2.saecho $1 $nocolon($5-)
  394.   elseif ($3 == 382) i2.saecho $1 $5 $nocolon($6-)
  395.   elseif ($3 == 383) i2.saecho $1 $nocolon($5-)
  396.   elseif ($3 == 391) i2.saecho $1 $5 $nocolon($6-)
  397.   elseif ($3 == 392) i2.saecho $1 $nocolon($6-)
  398.   elseif ($3 == 393) i2.saecho $1 $nocolon($6-)
  399.   elseif ($3 == 394) i2.saecho $1 $nocolon($6-)
  400.   elseif ($3 == 395) i2.saecho $1 $nocolon($6-)
  401.   elseif ($3 == 401) i2.iecho $1 $hc($5) is not on IRC.
  402.   elseif ($3 == 402) i2.iecho $1 $hc($5) is not on IRC.
  403.   elseif ($3 == 403) i2.saecho $1 $5 $nocolon($6-)
  404.   elseif ($3 == 404) i2.saecho $1 $5 $nocolon($6-)
  405.   elseif ($3 == 405) i2.saecho $1 $5 $nocolon($6-)
  406.   elseif ($3 == 406) i2.iecho $1 Could not locate $hc(WHOWAS) information for $hc($5) $+ .
  407.   elseif ($3 == 407) i2.saecho $1 $5 $nocolon($6-)
  408.   elseif ($3 == 408) i2.saecho $1 $5-
  409.   elseif ($3 == 409) i2.saecho $1 $nocolon($5-)
  410.   elseif ($3 == 411) i2.saecho $1 $nocolon($5-)
  411.   elseif ($3 == 412) i2.saecho $1 $nocolon($5-)
  412.   elseif ($3 == 413) i2.saecho $1 $5 $nocolon($6-)
  413.   elseif ($3 == 414) i2.saecho $1 $5 $nocolon($6-)
  414.   elseif ($3 == 421) i2.iecho $1 $upper($5) is not a known command.
  415.   elseif ($3 == 422) {
  416.     i2.secho $1 $nocolon($5-)
  417.     if ($i2.var($1,con) == on) {
  418.       i2.unset $1 tried.altnick
  419.       i2.set $1 away off
  420.       i2.quote $1 mode $i2.var($1,me) %umode
  421.       i2.unset $1 con
  422.       i2.quote $1 mode $i2.var($1,me)
  423.       tsound connect
  424.       i2.notify $1
  425.       .timer 0 40 i2.notify $1
  426.       set %timer.i2notify. [ $+ [ $1 ] ] $ltimer
  427.       if ($mflag(options,n0,27) == 1) sockclose identd
  428.     }
  429.   }  
  430.   elseif ($3 == 423) i2.saecho $1 $5 $nocolon($6-)
  431.   elseif ($3 == 424) i2.saecho $1 $nocolon($5-)
  432.   elseif ($3 == 431) i2.saecho $1 $nocolon($5-)
  433.   elseif ($3 == 432) i2.iecho $1 Erroneous nickname, please try again.
  434.   elseif ($3 == 433) {
  435.     if ($i2.var($1,con) == on) {
  436.       if ((%irc2.altnick) && ($i2.var($1,tried.altnick) == $null)) {
  437.         i2.set $1 me %irc2.altnick
  438.         i2.set $1 tried.altnick $true
  439.       }
  440.       else i2.set $1 me $left($me,8) $+ $rand(0,9)
  441.       i2.set $1 me.h $hc($i2.var($1,me))
  442.       i2.quote $1 NICK $i2.var($1,me)
  443.     }
  444.     else {
  445.       i2.iecho $1 Nickname $hc($5) is already in use.
  446.       i2.quote $1 whois $5
  447.     }
  448.   }
  449.   elseif ($3 == 434) i2.saecho $1 $5-
  450.   elseif ($3 == 435) i2.saecho $1 $5-
  451.   elseif ($3 == 436) {
  452.     i2.iecho $1 Nickname Collision!
  453.     i2.quote $1 nick $i2.var($1,altnick)
  454.   }
  455.   elseif ($3 == 437) i2.saecho $1 $5 $nocolon($6-)
  456.   elseif ($3 == 438) i2.saecho $1 $5-
  457.   elseif ($3 == 439) i2.saecho $1 $5-
  458.   elseif ($3 == 440) i2.saecho $1 $5-
  459.   elseif ($3 == 441) i2.saecho $1 $5-6 $nocolon($7-)
  460.   elseif ($3 == 442) i2.saecho $1 $5 $nocolon($6-)
  461.   elseif ($3 == 443) i2.saecho $1 $5-6 $nocolon($7-)
  462.   elseif ($3 == 444) i2.saecho $1 $nocolon($5-)
  463.   elseif ($3 == 445) i2.saecho $1 $nocolon($5-)
  464.   elseif ($3 == 446) i2.saecho $1 $nocolon($5-)
  465.   elseif ($3 == 451) i2.saecho $1 $nocolon($5-)
  466.   elseif ($3 == 461) i2.saecho $1 $5 $nocolon($6-)
  467.   elseif ($3 == 462) i2.saecho $1 $nocolon($5-)
  468.   elseif ($3 == 463) i2.saecho $1 $nocolon($5-)
  469.   elseif ($3 == 464) i2.saecho $1 $nocolon($5-)
  470.   elseif ($3 == 465) i2.secho $1 $colour(Info) $nocolon($5-)
  471.   elseif ($3 == 467) i2.saecho $1 $5 $nocolon($6-)
  472.   elseif ($3 == 468) i2.saecho $1 $nocolon($5-)
  473.   elseif ($3 == 471) i2.iecho $1 Cannot join channel $hc($5) (Its full)
  474.   elseif ($3 == 472) i2.saecho $1 $5 $nocolon($6-)
  475.   elseif ($3 == 473) i2.iecho $1 Cannot join channel $hc($5) (Invite only)
  476.   elseif ($3 == 474) i2.iecho $1 Cannot join channel $hc($5) (Banned)
  477.   elseif ($3 == 475) i2.iecho $1 Cannot join channel $hc($5) (Requires the correct key)
  478.   elseif ($3 == 477) i2.saecho $1 $5 $nocolon($6-)
  479.   elseif ($3 == 478) i2.saecho $1 $5-6 $nocolon($7-)
  480.   elseif ($3 == 481) i2.saecho $1 $nocolon($5-)
  481.   elseif ($3 == 482) i2.iecho $1 You're not a channel operator. ( $+ $hc($5) $+ )
  482.   elseif ($3 == 483) i2.saecho $1 $nocolon($5-)
  483.   elseif ($3 == 491) i2.saecho $1 $nocolon($5-)
  484.   elseif ($3 == 492) i2.saecho $1 $nocolon($5-)
  485.   elseif ($3 == 501) i2.saecho $1 $nocolon($5-)
  486.   elseif ($3 == 502) i2.saecho $1 $nocolon($5-)
  487.   elseif ($3 == 511) i2.saecho $1 $5 $nocolon($6-)
  488.   elseif ($3 == 512) i2.saecho $1 $5- $nocolon($6-)
  489.   elseif ($3 == 513) i2.saecho $1 $5-
  490.   elseif ($3 == 521) i2.saecho $1 $5-
  491.   elseif ($3 == 600) i2.saecho $1 $5-8 $nocolon($9-)
  492.   elseif ($3 == 601) i2.saecho $1 $5-8 $nocolon($9-)
  493.   elseif ($3 == 602) i2.saecho $1 $5-8 $nocolon($9-)
  494.   elseif ($3 == 603) i2.saecho $1 $5-
  495.   elseif ($3 == 604) i2.saecho $1 $5-8 $nocolon($9-)
  496.   elseif ($3 == 605) i2.saecho $1 $5-8 $nocolon($9-)
  497.   elseif ($3 == 606) i2.saecho $1 $5-
  498.   elseif ($3 == 607) i2.saecho $1 $5-
  499.   else i2.saecho $1 $5-
  500. }
  501. alias i2.parse {
  502.   if ($3 == PRIVMSG) i2.parse.privmsg $1-
  503.   elseif ($3 == NOTICE) i2.parse.notice $1-
  504.   elseif ($3 isnum) i2.parse.raw $1-
  505.   elseif ($2 == NOTICE) i2.aecho $1 $colour(Notice) $sc(-) $+ $hc($i2.var($1,server)) $+ $sc(-) $nocolon($4-)
  506.   elseif ($3 == WALLOPS) i2.aecho $1 $sc(!) $+ $hc($getnick($2)) $+ $sc(!) $nocolon($4-)
  507.   elseif ($3 == JOIN) {
  508.     if ($getnick($2) == $i2.var($1,me)) {
  509.       if ($isvalidchan($i2.var($1,rejoinchans),$nocolon($4))) {
  510.         aline $i2.nwin($1,$nocolon($4)) $getnick($2)
  511.         i2.techo $1 $nocolon($4) $colour(Join) *** Rejoined channel $nocolon($4)
  512.         if ($i2.var($1,rejoinchans) == $nocolon($4)) i2.unset $1 rejoinchans
  513.         else i2.set $1 rejoinchans $remtok($i2.var($1,rejoinchans),$nocolon($4),1,44)
  514.       }
  515.       else window -akl11Se $i2.win($1,$nocolon($4)) %i2cloc @i2.channel $replace($readini $mircini Fonts fchannel,$chr(44),$chr(32))
  516.       i2.techo $1 $nocolon($4) $colour(Join) *** Now talking in $nocolon($4)
  517.       aline $i2.nwin($1,$nocolon($4)) $getnick($2)
  518.       echo -i2 $i2.win($1,$nocolon($4)) %h Join to $hc($nocolon($4)) synched in $hc($rrpt($sub($ticks,$i2.var($1,jointime)))) seconds.
  519.       i2.set $1 chans $addtok($i2.var($1,chans),$nocolon($4),44)
  520.       i2.set $1 names.showtop off
  521.     }
  522.     else {
  523.       if ($mflag(options,n2,19) == 0) i2.techo $1 $nocolon($4) $colour(Join) *** $getnick($2) ( $+ $getadd($2) $+ ) has joined $nocolon($4)
  524.       else i2.techo $1 $nocolon($4) $colour(Join) *** Joins: $getnick($2) ( $+ $getadd($2) $+ )
  525.       aline $i2.nwin($1,$nocolon($4)) $getnick($2)
  526.       if (($notify($getnick($2))) && ($findtok($i2.var($1,notify),$getnick($2),1,44) == $null)) {
  527.         i2.saecho $1 $colour(Notify) *** $getnick($2) is on IRC $paren($notify($getnick($2)).note)
  528.         i2.set $1 notify $addtok($i2.var($1,notify),$getnick($2),44)
  529.       }
  530.     }
  531.   }
  532.   elseif ($3 == PART) {
  533.     if ($getnick($2) == $i2.var($1,me)) {
  534.       if ($window($i2.win($1,$4))) window -c $i2.win($1,$4)
  535.       if ($i2.var($1,chans) == $4) i2.unset $1 chans
  536.       else i2.set $1 chans $remtok($i2.var($1,chans),$4,1,44)
  537.       i2.cunset $1 $4
  538.       if ($i2.var($1,cycle) == on) {
  539.         i2.join $1 $4
  540.         i2.unset $1 cycle
  541.       }
  542.     }
  543.     else {
  544.       if ($mflag(options,n2,19) == 0) i2.techo $1 $4 $colour(Part) *** $getnick($2) ( $+ $getadd($2) $+ ) has left $4 $paren($nocolon($5-))
  545.       else i2.techo $1 $4 $colour(Part) *** Parts: $getnick($2) ( $+ $getadd($2) $+ ) $paren($nocolon($5-))
  546.       dline $i2.nwin($1,$4) $i2.nickpos($1,$4,$getnick($2))
  547.     }
  548.   }
  549.   elseif ($3 == NICK) {
  550.     if ($getnick($2) == $i2.var($1,me)) {
  551.       i2.set $1 me $nocolon($4)
  552.       i2.set $1 me.h $hc($nocolon($4))
  553.       echo $colour(Nick) -ti2 $i2.status($1) *** Your nick is now $nocolon($4)
  554.       i2.supdate $1
  555.     }
  556.     if ($i2.var($1,chans)) {
  557.       i2.wecho $1 $getnick($2) $colour(Nick) *** $getnick($2) is now known as $nocolon($4)
  558.       i2.updatechan $1 $getnick($2) $nocolon($4)
  559.     }
  560.     if ($findtok($i2.var($1,notify),$getnick($2),1,44)) {
  561.       i2.saecho $1 $colour(Notify) *** $getnick($2) has left IRC
  562.       if ($i2.var($1,notify) == $getnick($2)) i2.unset $1 notify
  563.       else i2.set $1 notify $remtok($i2.var($1,notify),$getnick($2),1,44)
  564.     }
  565.     if ($notify($nocolon($4))) {
  566.       i2.saecho $1 $colour(Notify) *** $nocolon($4) is on IRC $paren($notify($nocolon($4)).note)
  567.       i2.set $1 notify $addtok($i2.var($1,notify),$nocolon($4),44)
  568.     }
  569.   }
  570.   elseif ($3 == KICK) {
  571.     if ($5 == $i2.var($1,me)) {
  572.       if (%irc2.rejoin == on) {
  573.         dline $i2.nwin($1,$4) $i2.nickpos($1,$4,$5)
  574.         i2.secho $1 $colour(Kick) *** You were kicked from $4 by $getnick($2) $paren($nocolon($6-))
  575.         i2.techo $1 $4 $colour(Kick) *** You were kicked by $getnick($2) $paren($nocolon($6-))
  576.         i2.techo $1 $4 $colour(Info) *** Attempting to rejoin...
  577.         i2.join $1 $4
  578.         i2.set $1 rejoinchans $addtok($i2.var($1,rejoinchans),$4,44)
  579.         if ($i2.var($1,chans) == $4) i2.unset $1 chans
  580.         else i2.set $1 chans $remtok($i2.var($1,chans),$4,44)
  581.         i2.cunset $1 $4
  582.       }
  583.       else {
  584.         i2.secho $1 $colour(Kick) *** You were kicked from $4 by $getnick($2) $paren($nocolon($6-))
  585.         window -c $i2.win($1,$4)
  586.         if ($i2.var($1,chans) == $4) i2.unset $1 chans
  587.         else i2.set $1 chans $remtok($i2.var($1,chans),$4,44)
  588.         i2.cunset $1 $4
  589.       }
  590.       i2.iecho $1 To rejoin $sc($4) press $sc(F3) $+ .
  591.       set %i2.evt i2.join $1 $4
  592.     }
  593.     else {
  594.       i2.techo $1 $4 $colour(Kick) *** $i2.pst($1,$5,$4) was kicked by $getnick($2) $paren($nocolon($6-))
  595.       dline $i2.nwin($1,$4) $i2.nickpos($1,$4,$5)
  596.     }
  597.   }
  598.   elseif ($3 == INVITE) {
  599.     i2.aecho $1 $colour(Invite) *** $getnick($2) ( $+ $getadd($2) $+ ) invites you to join $nocolon($5-)
  600.     set %i2.evt i2.join $1 $nocolon($5-)
  601.     i2.iecho $1 To join $ac($nocolon($5-)) press $sc(F3) $+ .
  602.     tsound invite
  603.   }
  604.   elseif ($3 == TOPIC) {
  605.     i2.techo $1 $4 $colour(Topic) *** $getnick($2) changes topic to ' $+ $nocolon($5-) $+ '
  606.     i2.cset $1 $4 topic $nocolon($5-)
  607.     i2.update $1 $4
  608.   }
  609.   elseif ($3 == MODE) {
  610.     if ($4 == $i2.var($1,me)) echo $colour(Mode) -ti2 $i2.status($1) *** $getnick($2) sets mode: $nocolon($5-)
  611.     else i2.techo $1 $4 $colour(Mode) *** $getnick($2) sets mode: $nocolon($5-)
  612.     if (((o isin $5) || (v isin $5-) || (h isin $5-)) && ($4 != $i2.var($1,me))) i2.modeupdate $1 $4 $nocolon($5-)
  613.     else i2.quote $1 mode $4
  614.   }
  615.   elseif ($3 == QUIT) {
  616.     if ($mflag(options,n2,19) == 0) i2.wecho $1 $getnick($2) $colour(Quit) *** $getnick($2) has quit IRC $paren($nocolon($4-))
  617.     else i2.wecho $1 $getnick($2) $colour(Quit) *** Quits: $getnick($2) $paren($nocolon($4-))
  618.     i2.updatechan $1 $getnick($2)
  619.     if (($notify($getnick($2))) && ($findtok($i2.var($1,notify),$getnick($2),1,44))) {
  620.       i2.saecho $1 $colour(Notify) *** $getnick($2) has left IRC
  621.       if ($i2.var($1,notify) == $getnick($2)) i2.unset $1 notify
  622.       else i2.set $1 notify $remtok($i2.var($1,notify),$getnick($2),1,44)
  623.     }
  624.   }
  625.   elseif ($2 == PING) i2.quote $1 PONG $3-
  626.   elseif ($3 == KILL) i2.secho $1 $colour(Info) You have been killed by $getnick($2) [[ $+ $nocolon($5-) $+ ]]
  627.   elseif ($2 == ERROR) i2.secho $1 $colour(Info) $nocolon($3-)
  628.   else i2.saecho $1-
  629. }
  630. #i2.dcc off
  631. ctcp 1:DCC {
  632.   .disable #i2.dcc
  633.   i2.quote $gettok(%i2.dccnick,1,32) privmsg $gettok(%i2.dccnick,2,32) : $+ $1- $+ 
  634.   unset %i2.dccnick
  635.   halt
  636. }
  637. #i2.dcc end
  638.